home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
TOC.DIR
/
00004_Script_setContentsButtons
< prev
next >
Wrap
Text File
|
1995-11-21
|
8KB
|
155 lines
on setContentsButtons
-- birth triplets, parameter after "sbt" must be ascending order
put quote into q
global gCBL, gMBL, gOBL,gO, gONBL,gOSBL, gOQBL,gOOBL,gOGBL,gPBL, gSBL, gTBL, gUBL
global gContRetrace
-- set gContRetrace to [:]
-- set sc = script "sbc-retrace"
-- addprop gContRetrace, 16,[sc,16,"CTR.PIC","CTP.PIC","trace "&q&""e&"&q&"TOC"&q&""e"]
-- set sc = script "sbc"
-- addprop gContRetrace, 17,[sc,17,"CCR.PIC","CCP.PIC","contents "&q&""e&"&q&"TOC"&q&""e"]
-- set gCBL to [:]
-- set sc = script "sbc"
-- addprop gCBL, 9, [sc, 9, "CT5R.PIC", "CT5P.PIC","myGo "&q&""e&"&q&"O"&q&""e"]
-- addprop gCBL, 10, [sc,10,"CC4R.PIC","CC4P.PIC","myGo "&q&""e&"&q&"T"&q&""e"]
-- addprop gCBL, 11, [sc,11,"CC3R.PIC","CC3P.PIC","myGo "&q&""e&"&q&"P"&q&""e"]
-- addprop gCBL, 12, [sc,12,"CC6R.PIC","CC6P.PIC","myGo "&q&""e&"&q&"S"&q&""e"]
-- addprop gCBL, 13, [sc,13,"CC1R.PIC","CC1P.PIC","myGo "&q&""e&"&q&"M"&q&""e"]
-- addprop gCBL, 14,[sc,14,"CC2R.PIC","CC2P.PIC","myGo "&q&""e&"&q&"U"&q&""e"]
-- addprop gCBL, 8,[sc,8,"CCFR.PIC","CCFP.PIC","playHelp "&q&""e&"&q&"TOC"&q&""e"]
-- instantiate these right away...
-- repeat with i = 8 to 14
-- set it = getProp(gCBL, i)
-- set it = string(it)
-- set len = the length of it
-- set it = char 2 to len - 2 of it
-- set str = "set it = birth(" & it & ")"
-- do str
-- --put ">>> " &str
-- setProp gCBL, i, it
-- end repeat
-- set gMBL to [:]
set sc = script "sbt"
-- addprop gMBL, 2,[sc,2,"CM4R.PIC","CM4P.PIC","moGo "&q&""e&"&q&"FOS"&q&""e"] --"Forever 4 U"
-- addprop gMBL, 3,[sc,3,"CM1R.PIC","CM1P.PIC","moGo "&q&""e&"&q&"COS"&q&""e"] --"Comets"
-- addprop gMBL, 4,[sc,4,"CM3R.PIC","CM3P.PIC","moGo "&q&""e&"&q&"SPS"&q&""e"] --"Spazio"
-- addprop gMBL, 5,[sc,5,"CM2R.PIC","CM2P.PIC","moGo "&q&""e&"&q&"CRS"&q&""e"] --"Crisis"
-- addprop gMBL, 6,[sc,6,"CMSR.PIC","CMSP.PIC","myGo "&q&""e&"&q&"O"&q&""e"] --"Screening"
-- addprop gMBL, 7,[sc,7,"CMFR.PIC","CMFP.PIC","playHelp "&q&""e&"&q&"M"&q&""e"]
-- set gOBL to [:]
-- addprop gOBL, 2,[sc,2,"CO1R.PIC","CO1P.PIC","myGo "&q&""e&"&q&"ON"&q&""e"] --"Nebulae etc"
-- addprop gOBL, 3,[sc,3,"CO2R.PIC","CO2P.PIC","myGo "&q&""e&"&q&"OS"&q&""e"] --"stars"
-- addprop gOBL, 4,[sc,4,"CO3R.PIC","CO3P.PIC","myGo "&q&""e&"&q&"OQ"&q&""e"] --"quasars"
-- addprop gOBL, 5,[sc,5,"CO4R.PIC","CO4P.PIC","myGo "&q&""e&"&q&"OO"&q&""e"] --"solar system"
-- addprop gOBL, 6,[sc,6,"CO5R.PIC","CO5P.PIC","myGo "&q&""e&"&q&"OG"&q&""e"] --"galaxies"
-- addprop gOBL, 7,[sc,7,"COFR.PIC","COFP.PIC","playHelp "&q&""e&"&q&"O"&q&""e"]
-- addprop gCBL, 2, birth(script "sbc",2,"CT5R.PIC","CT5P.PIC","myGo "&q&"O"&q)
--
-- set gONBL to [:] --ôNebulae & Supernova Remnantsö
-- addprop gONBL, 9,[sc,9,"CO1AR.PIC","CO1AR.PIC",¼
--"myPop 9,"&q&""e&"&q&"Nebulae"&q&""e"]
-- addprop gONBL, 10,[sc,10,"CO1BR.PIC","CO1BR.PIC",¼
--"myPop 10,"&q&""e&"&q&"Supernova Remnants"&q&""e"]
-- addprop gONBL, 11,[sc,11,"CO1CR.PIC","CO1CR.PIC",¼
--"myPop 11,"&q&""e&"&q&"Planetary Nebulae"&q&""e"]
-- set gOSBL to [:] --ôStarsö
-- addprop gOSBL, 9,[sc,9,"CO2AR.PIC","CO2AR.PIC",¼
--"myPop 9,"&q&""e&"&q&"Globular Star Clusters"&q&""e"]
-- addprop gOSBL, 10,[sc,10,"CO2BR.PIC","CO2BR.PIC",¼
--"myPop 10,"&q&""e&"&q&"Open Star Clusters"&q&""e"]
-- addprop gOSBL, 11,[sc,11,"CO2CR.PIC","CO2CR.PIC",¼
--"myPop 11,"&q&""e&"&q&"Individual Stars"&q&""e"]
-- set gOQBL to [:] --ôQuasarsö
-- addprop gOQBL, 9,[sc,9,"CO3AR.PIC","CO3AR.PIC",¼
--"myPop 9,"&q&""e&"&q&"Quasars"&q&""e"]
-- addprop gOQBL, 10,[sc,10,"CO3BR.PIC","CO3BR.PIC",¼
--"myPop 10,"&q&""e&"&q&"Quasars Galaxy Interaction"&q&""e"]
-- set gOOBL to [:] --ôSolar Systemö
-- addprop gOOBL, 9,[sc,9,"CO4AR.PIC","CO4AR.PIC",¼
--"myPop 9,"&q&""e&"&q&"Sun"&q&""e"]
-- addprop gOOBL, 10,[sc,10,"CO4BR.PIC","CO4BR.PIC",¼
--"myPop 10,"&q&""e&"&q&"Planets & Moons"&q&""e"]
-- addprop gOOBL, 11,[sc,11,"CO4CR.PIC","CO4CR.PIC",¼
--"myPop 11,"&q&""e&"&q&"Comets"&q&""e"]
-- set gOGBL to [:] --ôGalaxiesö
-- addprop gOGBL, 8,[sc,8,"CO5AR.PIC","CO5AR.PIC",¼
--"myPop 8,"&q&""e&"&q&"Normal"&q&""e"]
-- addprop gOGBL, 9,[sc,9,"CO5BR.PIC","CO5BR.PIC",¼
--"myPop 9,"&q&""e&"&q&"Barred"&q&""e"]
-- addprop gOGBL, 10,[sc,10,"CO5CR.PIC","CO5CR.PIC",¼
--"myPop 10,"&q&""e&"&q&"Mixed"&q&""e"]
-- addprop gOGBL, 11,[sc,11,"CO5DR.PIC","CO5DR.PIC",¼
--"myPop 11,"&q&""e&"&q&"Elliptical"&q&""e"]
-- addprop gOGBL, 12,[sc,12,"CO5ER.PIC","CO5ER.PIC",¼
--"myPop 12,"&q&""e&"&q&"Irregular"&q&""e"]
-- addprop gOGBL, 13,[sc,13,"CO5FR.PIC","CO5FR.PIC",¼
--"myPop 13,"&q&""e&"&q&"Radio"&q&""e"]
-- addprop gOGBL, 14,[sc,14,"CO5GR.PIC","CO5GR.PIC",¼
--"myPop 14,"&q&""e&"&q&"Interacting"&q&""e"]
-- addprop gOGBL, 15,[sc,15,"CO5HR.PIC","CO5HR.PIC",¼
--"myPop 15,"&q&""e&"&q&"Clusters"&q&""e"]
-- set gPBL to [:]
-- addprop gPBL, 4,[sc,4,"CPFR.PIC","CPFR.PIC","playHelp "&q&""e&"&q&"P"&q&""e"]
-- -- addprop gPBL, 4,[sc,4,"CTR.PIC","CTP.PIC","trace "&q&""e&"&q&"Poetry of TOC"&q&""e"]
-- addprop gPBL, 5,[sc,5,"CPA2R.PIC","CPA2P.PIC","poGo "&q&""e&"&q&"prev"&q&""e"]
-- addprop gPBL, 6,[sc,6,"CPA1R.PIC","CPA1P.PIC","poGo "&q&""e&"&q&"next"&q&""e"]
--
-- set gSBL to [:]
-- addprop gSBL, 2,[sc,2,"CS1R.PIC","CS1P.PIC","goGo "&q&""e&"&q&"SS"&q&""e"] --"Solar System"
-- addprop gSBL, 3,[sc,3,"CS2R.PIC","CS2P.PIC","goGo "&q&""e&"&q&"NS"&q&""e"] --"Night Sky"
-- addprop gSBL, 4,[sc,4,"CSFR.PIC","CSFP.PIC","playHelp "&q&""e&"&q&"S"&q&""e"]
--
-- set gTBL to [:]
-- addprop gTBL, 2,[sc,2,"CT1R.PIC","CT1P.PIC","toGo "&q&""e&"&q&"EMS"&q&""e"] --"EM Spec"
-- addprop gTBL, 3,[sc,3,"CT2R.PIC","CT2P.PIC","toGo "&q&""e&"&q&"CLS"&q&""e"] --"Clusters"
-- addprop gTBL, 4,[sc,4,"CT3R.PIC","CT3P.PIC","toGo "&q&""e&"&q&"MWS"&q&""e"] --"Milky"
-- addprop gTBL, 5,[sc,5,"CT4R.PIC","CT4P.PIC","toGo "&q&""e&"&q&"SSS"&q&""e"] --"Solar"
-- addprop gTBL, 6,[sc,6,"CTFR.PIC","CTFP.PIC","playHelp "&q&""e&"&q&"T"&q&""e"]
--
-- set gUBL to [:]
-- addprop gUBL, 2,[sc,2,"CU10R.PIC","CU10P.PIC","muGo "&q&""e&"&q&"COMETS"&q&""e"] --comets
-- addprop gUBL, 3,[sc,3,"CU11R.PIC","CU11P.PIC","muGo "&q&""e&"&q&"STELLAR"&q&""e"]--stell hart
-- addprop gUBL, 4,[sc,4,"CU12R.PIC","CU12P.PIC","muGo "&q&""e&"&q&"FOREVER"&q&""e"] --forever 4U
-- addprop gUBL, 5,[sc,5,"CU13R.PIC","CU13P.PIC","muGo "&q&""e&"&q&"SPAZIO"&q&""e"] --spazio
-- addprop gUBL, 6,[sc,6,"CU1R.PIC","CU1P.PIC","muGo "&q&""e&"&q&"ORBITAL"&q&""e"] --orbital mind
-- addprop gUBL, 7,[sc,7,"CU2R.PIC","CU2P.PIC","muGo "&q&""e&"&q&"IMPULSES"&q&""e"]--impulses
-- addprop gUBL, 8,[sc,8,"CU3R.PIC","CU3P.PIC","muGo "&q&""e&"&q&"CONCERT"&q&""e"] --concert
-- addprop gUBL, 9,[sc,9,"CU4R.PIC","CU4P.PIC","muGo "&q&""e&"&q&"SPHERICAL"&q&""e"] --spherical
-- addprop gUBL, 10,[sc,10,"CU5R.PIC","CU5P.PIC","muGo "&q&""e&"&q&"COSMIC"&q&""e"] --cosmic
-- addprop gUBL, 11,[sc,11,"CU6R.PIC","CU6P.PIC","muGo "&q&""e&"&q&"CRISIS"&q&""e"] --crisis
-- addprop gUBL, 12,[sc,12,"CU7R.PIC","CU7P.PIC","muGo "&q&""e&"&q&"SPIRALING"&q&""e"] --spriraling
-- addprop gUBL, 13,[sc,13,"CU8R.PIC","CU8P.PIC","muGo "&q&""e&"&q&"MISTICO"&q&""e"] --mistico
-- addprop gUBL, 14,[sc,14,"CU9R.PIC","CU9P.PIC","muGo "&q&""e&"&q&"VOICES"&q&""e"] --voices
-- addprop gUBL, 15,[sc,15,"CUFR.PIC","CUFP.PIC","playHelp"&q&""e&"&q&"U"&q&""e"]
--
--
--sort gContRetrace
-- sort gCBL
-- sort gMBL
--sort gOBL
--sort gOGBL
--sort gONBL
--sort gOSBL
--sort gOQBL
--sort gOOBL
--sort gPBL
--sort gSBL
--sort gTBL
--sort gUBL
end setContentsButtons